1 HIRES:REPEAT:A=A+1:B=B+1:FORX=0TO239STEPA:SOUND1,X,10:CURSETX,0,1:DRAW0,198,2
2 NEXT:FORY=0TO199STEPB:SOUND1,B*10,10:CURSETO,Y,1:DRAW238,0,2:NEXT:UNTILA=270